home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / PICKREP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-05  |  620 b   |  38 lines
  1. unit Pickrep;
  2.  
  3. interface
  4.  
  5. uses Windows, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls;
  7.  
  8. type
  9.   TPickRpt = class(TForm)
  10.     OKBtn: TButton;
  11.     CloseBtn: TButton;
  12.     ViewBtn: TButton;
  13.     ReportType: TRadioGroup;
  14.     procedure OKBtnClick(Sender: TObject);
  15.     procedure ViewBtnClick(Sender: TObject);
  16.   public  
  17.     Preview : Boolean;
  18.   end;
  19.  
  20. var
  21.   PickRpt: TPickRpt;
  22.  
  23. implementation
  24.  
  25. {$R *.DFM}
  26.  
  27. procedure TPickRpt.OKBtnClick(Sender: TObject);
  28. begin
  29.   Preview := False;
  30. end;
  31.  
  32. procedure TPickRpt.ViewBtnClick(Sender: TObject);
  33. begin
  34.   Preview := True;
  35. end;
  36.  
  37. end.
  38.